Predavanie nazvu DTB medzi Formularmi

Otázka od: bugi

27. 11. 2002 15:37

Subject: Predavanie nazvu DTB medzi Formularmi
Ahojte,

na hlavnom formulari mam DBGrid do ktoreho nacitavam /jednu z mnohych/
databazu.
Do Edit-u zadam nazov databazy a po kliknuti na tlacidlo sa spusti tato
obsluha:

procedure TForm1.Button2Click(Sender: TObject);
var
      Y: Variant;
begin
      Y := Edit1.Text;

      Table1.Active := False;
      Table1.DatabaseName := 'data';
      Table1.TableName := Y;
      Table1.Active := True;
end;

V premennej Y mam nazov databazy. Ked otvorim druhy formular pre pridavanie
zaznamov potrebujem nadstavit uz otvorenu databazu pre pridavanie, ale
ked tam dosadim premennu Y, ktora by mala obsahovat nazov databazy,
tak to nefunguje.

Do uses Unit-u2 som vlozil Unit1, ale aj tak to nepomohlo.

Vo Form2 som si dal vypisat premennu Y, ale je prazdna!

Skusil som premennu Y deklarovat mimo obsluhy tlacidla, ale ani to
nepomohlo.

Pri OnCreate Form2 by som potreboval nejak zistit nazov databazy, ktora
je prave otvorena vo Form1 a pomocou nejakej premennej ju odovzdat ako
parameter, ktory by som mohol zadat pre prepnutie databazy do rezimu
pridavania.

Y.Append; ---> toto nefunguje tiez ...

Vyskusal som uz kadeco, ale bezvysledne ...

Kde robim chybu? Ako na to ?

Dik,
A

Bugala Alex - stredoskolak 2 roc.
-----------------------------------------------------
Win2000 Prof Cz - SP2
Delphi 3 Client / Server Suite